VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BGuia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarnCodigo As Integer
Private mvardFecRegistro As Date
Private mvarbTipoGuia As btipo
Private mvarbEstado As bestado
Private mvarsDocReferencia As String
Private mvarsComentarios As String
Private mvardFecProceso As Date
Private mvarlDetalle As Collection
Private mvarbUsuarioCreacion As busuario
Private mvarbUsuarioModificacion As busuario
Private mvardFecUltimaModificacion As Date
Private Sub Class_Initialize()
    Set mvarbTipoGuia = New btipo
    Set mvarbEstado = New bestado
    Set mvarlDetalle = New Collection
    Set mvarbUsuarioCreacion = New busuario
    Set mvarbUsuarioModificacion = New busuario
End Sub
Private Sub Class_Terminate()
    Set mvarbTipoGuia = Nothing
    Set mvarbEstado = Nothing
    Set mvarlDetalle = Nothing
    Set mvarbUsuarioCreacion = Nothing
    Set mvarbUsuarioModificacion = Nothing
End Sub
Public Property Get nCodigo() As Integer
    nCodigo = mvarnCodigo
End Property
Public Property Let nCodigo(ByVal nCodigo As Integer)
    mvarnCodigo = nCodigo
End Property
Public Property Get dFecRegistro() As Date
    dFecRegistro = mvardFecRegistro
End Property
Public Property Let dFecRegistro(ByVal dFecRegistro As Date)
    mvardFecRegistro = dFecRegistro
End Property
Public Property Get bTipoGuia() As btipo
    Set bTipoGuia = mvarbTipoGuia
End Property
Public Property Set bTipoGuia(bTipoGuia As btipo)
    Set mvarbTipoGuia = bTipoGuia
End Property
Public Property Get bestado() As bestado
    Set bestado = mvarbEstado
End Property
Public Property Set bestado(bestado As bestado)
    Set mvarbEstado = bestado
End Property
Public Property Get sDocReferencia() As String
    sDocReferencia = mvarsDocReferencia
End Property
Public Property Let sDocReferencia(ByVal sDocReferencia As String)
    mvarsDocReferencia = sDocReferencia
End Property
Public Property Get sComentarios() As String
    sComentarios = mvarsComentarios
End Property
Public Property Let sComentarios(ByVal sComentarios As String)
    mvarsComentarios = sComentarios
End Property
Public Property Get dFecProceso() As Date
    dFecProceso = mvardFecProceso
End Property
Public Property Let dFecProceso(ByVal dFecProceso As Date)
    mvardFecProceso = dFecProceso
End Property
Public Property Get lDetalle() As Collection
    Set lDetalle = mvarlDetalle
End Property
Public Property Set lDetalle(lDetalle As Collection)
    Set mvarlDetalle = lDetalle
End Property
Public Property Get bUsuarioCreacion() As busuario
    Set bUsuarioCreacion = mvarbUsuarioCreacion
End Property
Public Property Set bUsuarioCreacion(bUsuarioCreacion As busuario)
    Set mvarbUsuarioCreacion = bUsuarioCreacion
End Property
Public Property Get bUsuarioModificacion() As busuario
    Set bUsuarioModificacion = mvarbUsuarioModificacion
End Property
Public Property Set bUsuarioModificacion(bUsuarioModificacion As busuario)
    Set mvarbUsuarioModificacion = bUsuarioModificacion
End Property
Public Property Get dFecUltimaModificacion() As Date
    dFecUltimaModificacion = mvardFecUltimaModificacion
End Property
Public Property Let dFecUltimaModificacion(ByVal dFecUltimaModificacion As Date)
    mvardFecUltimaModificacion = dFecUltimaModificacion
End Property
